Valid as of 12/09/2012


//FNzzzzRQ JOB (FNzzzz),'TEST REQUESTS IN',
//     REGION=4096K,MSGCLASS=A,TIME=(,15)
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
/*PASSWORD ???????
//************************************************************
//*                                                          *
//*              F A S T E R                                 *
//*        RETRIEVE CURRENT REQUESTS                         *
//*                                                          *
//************************************************************
//*
//*  DELETES FILES TO BE CREATED IN NEXT STEPS
//*
//DELSTEP EXEC IKJBATCH
//NWRISPF.SYSTSPRT DD DUMMY
DELETE 'FN.zzzz.REQUESTS.ALLFROM.MAILBOX'
DELETE 'FN.zzzz.REQUESTS.ALLFROM.RPT'
//************************************************************
//*                 PARAM CARD VALUES                        *
//*                                                          *
//*   GENERATE FILE     POS  1 - 10 =  'CURRENT   '          *
//*    OF CURRENT                          SELECT NEW        *
//*     REQUESTS AND                       REQUEST RECORDS,  *
//*      SUMMARIZE                         OR                *
//*       PROCESSING                   'RETRANSMIT'          *
//*        PERFORMED                       SELECT RECORDS    *
//*                                        ALREADY DELIVERED *
//*                     POS 11 - 18 =  BEGIN DATE (MMDDYYYY) *
//*                     POS 19 - 26 =  END DATE (MMDDYYYY)   *
//*                     POS 27 - 33 =  SENDING INSTITUTION   *
//*                                     (= SPACES -OR- IF    *
//*                                      FILLED IN, ALLOWS   *
//*                                      ROWS TO BE RETRIEVED*
//*                                      BY SENDING INST)    *
//************************************************************
//SRTS02   EXEC PGM=IKJEFT01 
//PARAM    DD *
CURRENT
//SYSPRINT DD SYSOUT=A
//SYSOUT   DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSERR   DD SYSOUT=A
//SYSABOUT DD SYSOUT=A
//SYSTSPRT DD DUMMY
//DSNTRACE DD DUMMY
//RQSUMRY  DD SYSOUT=A                                
//RQSFILE  DD DSN=FN.zzzz.REQUESTS.ALLFROM.MAILBOX,   /*TRANSFER RECORDS
//    DISP=(NEW,CATLG),
//    DCB=(RECFM=FB,LRECL=1020,BLKSIZE=0,DSORG=PS),
//    UNIT=SYSDA,STORCLAS=SCFNSTD,
//    SPACE=(TRK,(30,3),RLSE)
//SYSTSIN  DD *
 DSN SYSTEM(DSN)
 RUN  PROGRAM(SRTS02) PLAN(FNSRTS02) -
      LIB('FRN.DISTRICT.LINKLIB')
 END
//**********************************************************************
//*                                                                    *
//*THIS STEP CREATES A REPORT LISTING REQUESTS                         *
//*                                                                    *
//**********************************************************************
//SRTS11   EXEC PGM=IKJEFT01, 
//           COND=(0,NE,SRTS02)
//PARAM    DD *
SRTS11
//SYSPRINT DD SYSOUT=A
//SYSOUT   DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSABOUT DD SYSOUT=A
//RQSFILE  DD DSN=FN.zzzz.REQUESTS.ALLFROM.MAILBOX,     /*INCOMING REQS
//            DISP=SHR
//RPTFILE  DD DSN=FN.zzzz.REQUESTS.ALLFROM.RPT,         /*SRTS11 RPT
//         DISP=(NEW,CATLG),
//         DCB=(RECFM=FB,LRECL=133,BLKSIZE=0,DSORG=PS),
//         UNIT=SYSDA,STORCLAS=SCFNSTD,
//         SPACE=(TRK,(10,10),RLSE)
//SYSTSPRT DD DUMMY
//DSNTRACE DD DUMMY
//SYSERR   DD SYSOUT=A
//SYSTSIN  DD *
 DSN SYSTEM(DSN)
 RUN  PROGRAM(SRTS11) PLAN(FNSRTS11) -
      LIB('FRN.DISTRICT.LINKLIB')
 END
//